home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu358.dms / pu358.adf / DonsGenies / Don'sGenies / IsometricGrid30.pprx < prev    next >
Text File  |  1992-07-28  |  759b  |  41 lines
  1. /* This Genie sets up an isometric grid and enables snap.
  2. Written by Don Cox */
  3.  
  4.  
  5. signal on error
  6. signal on syntax
  7. address command
  8. call SafeEndEdit.rexx()
  9. call ppm_AutoUpdate(0)
  10. cr="0a"x
  11.  
  12. currentunits = ppm_GetUnits()
  13. call ppm_SetGrid(1)
  14. select
  15.     when currentunits = 1 then call ppm_SetGridSize(0.2165,0.125)
  16.     when currentunits = 2 then call ppm_SetGridSize(.433,.25)
  17.     otherwise call ppm_SetGridSize(1.9,1)  /* not so accurate in picas  */
  18.     end
  19. call ppm_SetGridSnap(1)
  20.  
  21. call exit_msg()
  22.  
  23. end
  24.  
  25. error:
  26. syntax:
  27.     do
  28.     exit_msg("Genie failed due to error: "errortext(rc))
  29.     end
  30.  
  31. exit_msg:
  32.     do
  33.     parse arg message
  34.     if message ~= "" then
  35.     call ppm_Inform(1,message)
  36.     call ppm_ClearStatus()
  37.     call ppm_AutoUpdate(1)
  38.     exit
  39.     end
  40.  
  41.